/* GUI CONVERTED from rsrp09a.p (converter v1.75) Sat Aug 12 23:15:46 2000 */
/* rsrp09a.p - Release Management Supplier Schedules                    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* web convert rsrp09a.p (converter v1.00) Mon Oct 20 13:58:01 1997 */
/* web tag in rsrp09a.p (converter v1.00) Mon Oct 20 14:18:41 1997 */
/*F0PN*/ /*K14W*/ /*                                                    */
/*F0PN*/ /*V8:ConvertMode=Maintenance                                   */
/* REVISION: 7.4    LAST MODIFIED: 11/01/93           BY: WUG *H204*    */
/* REVISION: 8.6    LAST MODIFIED: 10/22/97           BY: bvm *K14W*    */
/* REVISION: 9.0    LAST MODIFIED: 12/01/98    BY: *K1QY* Pat McCormick */
/* REVISION: 9.0    LAST MODIFIED: 03/13/99    BY: *M0BD* Alfred Tan    */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00 BY: *N0KP* myb              */

/* SCHEDULE PRINT SUBPROGRAM */

{mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */
/*K14W*/ {wbrp02.i}

/*K14W* *change the abbreviations **
 *K14W* def shared var supplier_from like po_vend.
 *K14W* def shared var supplier_to like po_vend.
 *K14W* def shared var shipto_from like po_ship.
 *K14W* def shared var shipto_to like po_ship.
 *K14W* def shared var part_from like pod_part.
 *K14W* def shared var part_to like pod_part.
 *K14W* def shared var po_from like po_nbr.
 *K14W* def shared var po_to like po_nbr.
 *K14W* def shared var buyer_from like po_buyer.
 *K14W* def shared var buyer_to like po_buyer.
 *K14W* def shared var print_zero like mfc_logical.
 *K14W*
 *K14W* def var fax_nbr as char format "x(17)".
 *K14W* def shared var blank_fax_nbrs_found like mfc_logical.***/

/*K14W*/ define shared variable supplier_from like po_vend.
/*K14W*/ define shared variable supplier_to like po_vend.
/*K14W*/ define shared variable shipto_from like po_ship.
/*K14W*/ define shared variable shipto_to like po_ship.
/*K14W*/ define shared variable part_from like pod_part.
/*K14W*/ define shared variable part_to like pod_part.
/*K14W*/ define shared variable po_from like po_nbr.
/*K14W*/ define shared variable po_to like po_nbr.
/*K14W*/ define shared variable buyer_from like po_buyer.
/*K14W*/ define shared variable buyer_to like po_buyer.
/*K14W*/ define shared variable print_zero like mfc_logical.
/*K1QY*/ define shared variable schtype like sch_type initial 4 no-undo.
/*K14W*/ define variable  fax_nbr as character format "x(17)".
/*K14W*/ define shared variable blank_fax_nbrs_found like mfc_logical.

FORM /*GUI*/  with frame phead1
/*K14W*/ width 80 THREE-D /*GUI*/.


mainloop:
for each po_mstr no-lock
where po_nbr >= po_from and po_nbr <= po_to
and po_vend >= supplier_from and po_vend <= supplier_to
and po_buyer >= buyer_from and po_buyer <= buyer_to
and substring(po_sch_mthd,3,1) = "y"
use-index po_vend,
each pod_det no-lock
where pod_nbr = po_nbr
and pod_sched
and pod_part >= part_from and pod_part <= part_to
and pod_site >= shipto_from and pod_site <= shipto_to
use-index pod_nbrln,
each pt_mstr no-lock where pt_part = pod_part,
each sch_mstr no-lock
/*K1QY**
 * where sch_type = 4 and sch_nbr = pod_nbr and sch_line = pod_line
 * and sch_rlse_id = pod_curr_rlse_id[1]
 *K1QY*/

/*K1QY*/ where sch_type = schtype and sch_nbr = pod_nbr and sch_line = pod_line
/*K1QY*/ and sch_rlse_id = pod_curr_rlse_id[schtype - 3]

break by po_vend by pod_site by pod_part:
/*GUI*/ if global-beam-me-up then undo, leave.

   fax_nbr = "".

   if first-of(po_vend) then do:
      find ad_mstr where ad_addr = po_vend no-lock.
      fax_nbr = "#" + ad_fax.

      if ad_fax = "" then blank_fax_nbrs_found = true.
   end.

   {rsrp05.i}
end.
/*GUI*/ if global-beam-me-up then undo, leave.


/*K14W*/ {wbrp04.i}
